4 GOTO90
5 POKEB,32:POKEC,32:B=INT(RND(1)*10)+7680:C=INT(RND(1)*10)+7691:GOTO34
6 BO=0:B=INT(RND(1)*14)*22+7680:C=B+198:G=B+110:RETURN
7 PRINT"[147][158]  MAGIC WINGS LEVEL!":FORT=1TO4:POKEW,241:FORTT=1TO200:NEXT:POKEW,0
8 NEXT:I=I+1:RETURN
9 PRINT"[147]":A=8175:POKEV+1,10:PH=2:GOSUB6:U=U+5:FORT=1TOU+20:S=INT(RND(1)*452)+7680
10 POKES,3:POKES+LL,3:POKEX,200:POKEX,0:NEXT
11 POKEA,2:POKEA+LL,5:IFPEEK(B+1)=3THENPOKEW,200:B=B+44
12 POKEB,5:POKEB+LL,4:D=PEEK(197):IFPEEK(C+1)=3THENPOKEX,200:C=C+44
13 IFPEEK(G+1)=3THENPOKEW,135:G=G+44
14 POKEG,5:POKEG+LL,4:POKEC,5:POKEC+LL,4:IFD<>64THENPOKEA,32:IFD=20THENA=A-1:
15 IFA=CORA=BORA=GTHEN51
16 BO=BO+1:IFD=44THENA=A+1
17 POKEW,0:POKEX,0:IFD=42THENA=A-22
18 IFPEEK(A)=3ORPEEK(A)=5THEN52
19 POKEC,32:POKEB,32:POKEG,32:C=C+1:B=B+1:G=G+1:IFBO=22THENGOSUB6
20 IFA<7702THEN23
21 GOTO11
23 GOTO75
24 RESTORE:FORPU=1TO47:READJ:NEXT:FORPU=1TO15:READJ:POKEW,J:FORII=1TO100:NEXT:POKEX,J
25 FORII=1TO100:NEXT:NEXT:RETURN
29 PRINT"[147]":POKE36869,255:W=36876:POKEV,15:POKEV+1,14:H=7680:A=8153:B=7680:PH=1:C=7701
30 U=U+5:FORT=1TOU:S=INT(RND(1)*386)+7746:POKES,3:POKES+LL,4:POKEX,200:POKEX,0:NEXT
31 X=36875:IFI=1THENGOSUB24
34 IFPEEK(C+22)=3THENPOKEX,135:POKEC,32:C=C-2
35 D=PEEK(197):IFPEEK(B+22)=3THENPOKEW,135:POKEB,32:B=B+2
36 POKEB,0:POKEB+22,1:POKEC,0:POKEC+22,1:IFD<>64THENPOKEA,32
37 IFD=20THENA=A-1
38 IFD=44THENA=A+1
39 IFD=42THENA=A-22
40 E=PEEK(A):IFE<2ORE=3ORA=BORA=CORA=B+22ORA=C+22THEN51
41 IFA<7702THEN59
42 POKEA,2:POKEA+LL,5:POKEB,32:POKEC,32:B=B+22:C=C+22:POKEW,.
43 POKEX,.:IFB>8164THEN5
44 GOTO34
46 PRINT"[147]CONGRATULATIONS!!!!":PRINT"YOU HAVE GOTTEN TO    LEVEL 32!!!!":GOSUB24
47 PRINT"GET READY....":LW=9:FORT=1TO1000:NEXT:GOTO29
51 IFLW=9THENONPHGOTO29,9,59,75
52 POKEW+1,220:POKEW,135:POKEA+LL,7:FORY=1TO15:POKEV,Y:POKEA,42:FORZ=1TO5:NEXT:POKEA,214
53 POKEA,42:FORZ=1TO5:NEXT:POKEA,214:FORZ=1TO5:NEXT:NEXT
54 FORY=15TO0STEP-1:POKEV,Y:POKEA,42:FORZ=1TO10:NEXT:POKEA,214:FORZ=1TO10:NEXT:NEXT
55 POKEV,15:POKEW+1,0:POKEW,0:POKE36879,24:PRINT"[147][144] ZAPPED AT STAGE,";I
56 IFI>32THEN46
57 PRINT"HIT[157][157][157]ANY[157][157][157]KEY"
58 POKE198,0:WAIT198,1:I=1:U=30:UU=2:GOTO29
59 GOSUB7:POKEX,0:PRINT"[147]";:PH=3:FORT=1TO500:PRINT"[158] ";:NEXT
60 KD=135:A=8175:B=7812:C=7769:G=7726:UU=UU+2:FORT=1TOUU:S=INT(RND(1)*22)+7680:POKES,4
61 POKES+308,4:POKES+308+LL,2:POKES+LL,2:NEXT:F=7900
63 POKEA+LL,5:POKEA,2:POKEB,3:POKEC,3:POKEF,3:POKEG,3:POKEG+3,3:POKEW+1,KD:IFA<HTHEN73
66 D=PEEK(197):KD=KD+4:P=A:IFD=20THENA=A-1
67 A=A-22:IFD=44THENA=A+1
69 POKEP,32:POKEP+LL,7:IFPEEK(A)=3ORPEEK(A)=4THEN51
72 POKEB-3,32:POKEC-3,32:POKEF-6,32:POKEG-3,32:F=F+1:B=B+1:C=C+1:G=G+1:GOTO63
73 I=I+1:POKEW+1,0:GOTO9
75 PH=4:KD=135:GOSUB7:PRINT"[147]":POKEV+1,15:A=8175:FORT=1TOUU*2:S=INT(RND(1)*386)+7680
76 SS=INT(RND(1)*6)+1:POKES,5:POKES+LL,SS:POKEX,200:POKEX,0:NEXT
78 POKEA,2:POKEA+LL,5:POKEW+1,KD:KD=KD+4:D=PEEK(197)
79 P=A:IFD=20THENA=A-1
80 A=A-22:IFD=44THENA=A+1
81 POKEP,32:IFPEEK(A)=5THEN51
82 IFA<HTHEN84
83 GOTO78
84 POKEW+1,0:I=I+1:GOTO29
90 POKE52,28:POKE56,28:CLR:FORI=7168TO7679:POKEI,PEEK(I+25600):NEXT:FORH=7168TO7216
91 READJ:POKEH,J:NEXT:POKE36869,255:PRINT"[147][144]B[157]TO[157][157]THE[157][157][157]TOP!"
92 PRINT"[156]    BY KEVIN DEWEY":PRINT"[144]HIT[157][157][157]ANY[157][157][157]KEY"
93 V=36878:POKE198,0:WAIT198,1
94 U=30:UU=2:LL=30720:I=1:GOTO29
95 DATA24,60,126,255,219,219,255,102,255,219,219,227,126,60,36,102,255,86,126,16,56,124
96 DATA40,108,255,219,219,255,165,189,129,255,127,8,127,93,93,127,20,34,126,219,126
97 DATA24,255,153,60,102,0
98 DATA200,140,145,150,140,150,180,140,130,200,210,190,150,140,0